MacHome 1999 February/March/MacHome CD (February and March 1999).iso/Edutainment/INFOHIGHWAYDEMOS/demo/DEMOF1.DCR/00001.ls

Text File | 1998-09-17 | 418 b | 28 lines

on initSprites
  repeat with x = 1 to 48
    puppetSprite(x, 0)
    set the visible of sprite x to 1
  end repeat
end

on pupetize start, end
  repeat with i = start to end
    puppetSprite(i, 1)
  end repeat
end

on dePupetize start, end
  repeat with i = start to end
    puppetSprite(i, 0)
  end repeat
end

on exitFrame
  if rollOver(3) then
    go(the frame)
  else
    initSprites()
    go("choix")
  end if
end